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3 * 

4 * ***** * 

5 » DIAGNOSTIC PANEL M6802-SOFTWARE 23.09.80 » 
5 * ***** * 

7 

8 » J.HOPPE 

9 * I.NOACK 

10 « R.OHRAN 

11 * W.VINIGER « 
12 

13 **********»***a**w*******************wft* w*w **»«** *s ».*«***#*«************** 

14 

15 0000 BEGIN PANEL 

16 

17 * CONSTANT DEFINITIONS 

18 

19 « ASCII CHARACTERS 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

38 

31 

32 

33 

34 

35 

36 

37 

38 

39 » I/O ADDRESSES 

40 

41 HP, STATUS EQU 4000 

42 HP. DATA EQU 4001 
43 

44 « , LOCAL ENTRYPOINTS OF NESTED BLOCKS 

45 

46 USE MONITOR, TYPE. CTRL, U. RAM. LOAD, X. WORD, MAINID.SU3ID 

47 USE DUMP, CALCULATE, LOAD, MENU, GETWORD.GETKEY, READ. REG 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



CTRL.C 


EQU 


3 


LF 


EQU 


0A 


CR 


EQU 


0D 


DC1 


EQU 


11 


ESC 


EQU 


IB 


BLANK 


EQU 


28 


EXCLAM 


EQU 


21 


AMPERSAND 


EQU 


26 


LOWER. E 


EQU 


65 


LOWER. P 


EQU 


70 


LOWER. U 


EQU 


75 


RUBOUT 


EQU 


IB 


QUESTION. M 


EQU 


3F 


PROMPT 


EQU 


2A 


COMMA 


EQU 


2C 


BACK. SLASH 


EQU 


5C 


SHIFT. MASK 


EQU 


0DF 



MIR4 


EQU 


3C08 


MIR3 


EQU 


3C09 


MIR2 


EQU 


3C0A 


MIR1 


EQU 


3C0B 


MIR8 


EQU 


3C0C 


CPU1 


EQU 


3C0E 


CPU0 


EQU 


3C0F 


C0N8 


EQU 


3C13 


CON1 


EQU 


3C12 


MEMPU 


EQU 


3C14 



PANEL 
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59 






SSP 


EQU 3C15 


60 






UAR1 


EQU 3C10 


61 






UAR0 


EQU 3C11 


62 










63 






STACK 


EQU 7F 


64 






RET 


EQU 2008 


65 










66 










67 






« 


VARIABLES 


68 










69 


0008 


00 


C 


BYTE 


70 


0001 


00 00 


X.SAVE 


WORD 


71 






DATA 


SET « 


72 











'RETURN' -JUMP FOR PUSHX/PULLX 



DUMMY REGISTERS, 

FOR STRICTLY LOCAL USE ONLY 



PANEL 
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74 
75 
76 
77 
78 
79 



81 
82 
83 



84 
85 
85 
87 
88 
89 
98 
91 
92 
93 



0003 

C000 IB 

C0B3 30 

C006 00 

C007 20 

C00A 54 

C00C 43 

C00F 55 

C012 41 

C015 52 

C018 00 



* PROMC808 * 

ORG 0C000 

26 70 READ . CTRL BYTE ESC , AMPERSAND , LOWER . P , ' ' , ' R ' , DC 1 , 
52 11 

45 4F MESS3 BYTE ' EOT',0 

00 

4B 53 MESS1 BYTE 'CKSUM',0 

4D 00 

44 44 MESS2 BYTE 'ADDR: ',3 

3A 20 



INIT EQU « 

C019 BEGIN INIT 

C019 86 03 LDAA =3 

C01B B7 40 00 STAA HP. STATUS 

C01E 86 12 LDAA =12 

C020 B7 40 00 STAA HP. STATUS 

C023 39 RTS 

C024 END INIT 



INITIALIZE THE ACIA 



PANEL 
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95 










* 


PROCEDURE RCH (VAR A, 'CHAR); 


96 










* 


VAR S 


: BITSET; (« A-REG «) 


97 










* 


BEGIN 




98 










* 


REPEAT 


99 










* 


S 


:= HP. STATUS 


100 










* 


UNTIL IN S; 


101 










* 


A : 


= HP. DATA; 


102 










« 


IF A = ESC THEN GOTO MONITOR 


103 










* 


IF A = QUESTION. MARK 


104 










* 


MENU; R.CH(A); 


105 










* 


END 


J 


106 










* 


END; 


(» RCH *) 


107 
















108 










R.CH 


EQU 


* 


109 


C024 










BEGIN RCH 


110 












DEF 


GOT 


111 












USE 


ESCAPED, COM. ESC 


112 
















113 


C024 


B6 


40 


00 


REPEAT 


LDAA 


HP. STATUS 


114 


C027 


47 








ASR 


A 


115 


C028 


24 


FA 




UNTIL 


BCC 


REPEAT 


116 


C02A 


B6 


40 


01 


GOT 


LDAA 


HP. DATA 


117 
















118 


C02D 


81 


03 




IF1 


CMPA 


=CTRL.C 


119 


C02F 


26 


03 






BNE 


IF2 


120 


C031 


7E 


E2 


B3 


THEN1 


JMP 


ESCAPED 


121 
















122 


C034 


81 


3F 




IF2 


CMPA 


=QUESTION.M 


123 


C036 


26 


05 






BNE 


IF3 


124 


C038 


BD 


C3 


36 


THEN2 


JSR 


MENU 


125 


C03B 


20 


E7 






BRA 


REPEAT 


126 
















127 


C03D 


81 


IB 




IF3 


CMPA 


=ESC 


128 


C03F 


26 


10 






BNE 


W.CH FULL DUPLEX 


129 
















130 


C041 


8D 


ID 






BSR 


W. 2. BLANK 


131 


C043 


7E 


C3 


95 




JMP 


COM. ESC 


132 


C046 










END 


RCH 



PANEL 
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134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 



BREAK 



C046 
C046 
C049 
C04A 
C04C 
C04F 
C050 
C051 



B6 40 00 

47 

24 03 

7E C0 2A 

4F 

39 



RET 



W.CH 
C051 

C051 36 

C052 B6 40 00 REPEAT 

C055 47 

C056 47 

C057 24 F9 UNTIL 

C059 32 

C05A B7 40 01 

C05D 39 
C05E 



PROCEDURE BREAK (VAF 


• A: CHAR); 


VAR S: BITSET; (« 


A-REG «) 


BEGIN 




S := HP. STATUS; 




IF IN S 




THEN 




A := HP. DATA; 




IF A = ESC THEN 


GOTO MONITOR END; 


IF A - QUESTION. MARK 


THEN 




MENU; RCH(A); 




END; 




ELSE 




A := NULL; 




END; 




END BREAK; 




DEF GOT 




EQU « 




BEGIN BREAK 




LDAA HP. STATUS 




ASR A 




BCC RET 




JMP GOT 




CLR A 




RTS 




END BREAK 





PROCEDURE WCH (A:CHAR); 

VAR S : BITSET; (» A-REG *) 

BEGIN 

REPEAT 
S := HP. STATUS 

UNTIL 1 IN S; 

HP. DATA := A; 
END; (« WCH «) 

EQU » 

BEGIN WCH 

PSH A 

LDAA HP. STATUS 

ASR A 

ASR A 

BCC REPEAT 

PUL A 

STAA HP. DATA 

RTS 

END WCH 
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PANEL 



188 


C05E 


8D 


02 




W 


3. BLANK 


BSR 


W.l. BLANK 


189 


C060 


8D 


00 




W 


2. BLANK 


BSR 


W.l. BLANK 


190 


















191 


C062 


36 






W 


1. BLANK 


PSH 


A 


192 


C063 


86 


20 








LDAA 


=BLANK 


193 


C065 


BD 


C0 


51 






JSR 


W.CH 


194 


C068 


32 










PUL 


A 


195 


C069 


39 










RTS 




196 


















197 










X 




PROCEDURE WSTRING (VAR X: ADDRESS); 


198 










* 




VAR A 


: CHAR; 


199 










* 




BEGIN 




200 










* 




A : 


= M[X]; X := X + 1; 


201 










« 




WHILE A <> NULL DO BEGIN 


282 










* 




WCH(A); 


203 










* 




A 


:= M[X]; 


204 










• 




X 


:= X ♦ 1; 


205 










* 




END 


1 


206 










« 




END; 


(» WSTRING ») 


207 


















208 


















209 










W 


STRING 


EQU 


* 


210 


C06A 












BEGIN 


WSTRING 


211 


C06A 


36 










PSH 


A 


212 


C06B 


A6 


00 




WHILF. 


LDAA 


0,X 


213 


C06D 


27 


06 








BEQ 


ENDWHILE 


214 


C06F 


BD 


C0 


51 






JSR 


W.CH 


215 


C072 


08 










INX 




216 


C073 


20 


F6 








BRA 


WHILE 


217 


C075 


32 






ENDWHILE 


PUL 


A 


218 


C076 


68 










INX 




219 


C077 


39 










RTS 




220 


C078 












END 


WSTRING 


221 


















222 


















223 


















224 










« 




PROCEDURE CRLF; 


225 










* 




BEGIN 




226 










* 




WCH(CR); 


227 










* 




WCH(LF); 


228 










* 




END; 


(« CRLF •) 


229 


















230 


















231 










W. 


CRLF 


EQU 


* 


232 


C078 












BEGIN 


CRLF 


233 


C078 


36 










PSH 


A 


234 


C079 


86 


0D 








LDAA 


=CR 


235 


C07B 


BD 


C0 51 






JSR 


W.CH 


236 


C07E 


86 


0A 








LDAA 


=LF 


237 


C080 


BD 


C0 


51 






JSR 


W.CH 


238 


C083 


32 










PUL 


A 


239 


C084 


39 










RTS 




240 


C085 












END 


CRLF 


241 
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243 








* 




PROCEDURE INHEX (VAR A: BYTE); 


244 








* 




VAR C : CHAR; (« A-REG *) 


245 








« 




BEGIN 


246 








* 




REPEAT 


247 








* 




RCH(C); 


248 








* 




A := BIN(C); 


249 








* 




IF CARRY THEN WCH( ' ! ' ) ; 


250 








* 




UNTIL NOT CARRY; 


251 








* 




END; (» INHEX «) 


252 














253 














254 








IN, 


HEX 


EQU « 


255 


C085 










BEGIN INHEX 


256 


C085 


8D 


9D 


REPEAT 


BSR R.CH 


257 


C087 


8D 


13 






BSR BIN 


258 


C089 


24 


84 






BCC ENDREPEAT 


259 


C08B 


8D 


0A 






BSR NO 


260 


C08D 


29 


F6 






BRA REPEAT 


261 








ENDREPLAT 


EQU * 


262 


C08F 


39 








RTS 


263 


C890 










END INHEX 


264 














265 














266 














267 














268 








« 




PROCEDURE OUTHEX (A:BYTE); 


269 








* 




VAR C : CHAR; (* A-REG ») 


278 








* 




BEGIN 


271 








« 




C := HEX(A); 


272 








* 




WCH(C); 


273 








* 




END; (• OUTHEX «) 


274 














275 














276 








OUT 


.HEX 


EQU « 


277 


C098 










BEGIN OUTHEX 


278 


C099 


36 








PSH A 


279 


C091 


8D 


20 






BSR HEX 


280 


C093 


8D 


BC 






BSR W.CH 


281 


C095 


32 








PUL A 


282 


C096 


39 








RTS 


283 


C097 










END OUTHEX 


284 














285 














286 














287 














288 


C097 


36 




NO 




PSH A 


289 


C098 


7E 


C3 A3 






JMP NONO 


290 


C09B 


02 








NOP 


291 















PANEL 
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293 








BIN 


EQU 


* FUNCTION BIN (A: CHAR; CARRY: BOOLEAN) : BYTE; 


294 








* 




VAR B : BYTE; (» A-REG «) 


295 


C89C 








BEGIN BIN BEGIN 


296 


C89C 


80 


30 




SUBA 


='8' B := BYTE(A) - BYTE('0'); 


297 








* 




CARRY := B < 0; 


298 


C09E 


25 


12 


IF1 


BCS 


ENDIF1 IF NOT CARRY 


299 








* 




THEN 


388 


C8A8 


81 


0A 


IF2 


CMPA 


=8A IF B >= 18Z 


381 


C0A2 


25 


0D 




BCS 


ELSE2 THEN BEGIN 


382 


C0A4 


84 


DF 




ANDA 


=SHIFT. MASK B := CAP(B); 


383 


C0A6 


88 07 


THEN2 


SUBA 


"'A'-':' B := B - (BYTE( 'A')-BYTE( ' : ')); 


384 


C0A8 


81 


10 


IF3 


CMPA 


=10 IF B >= 16Z 


385 


C8AA 


25 


02 




BCS 


ELSE3 


386 


CBAC 


0D 




THEN3 


SEC 


TEHN CARRY := TRUE 


387 


C8AD 


39 






RTS 




308 


C0AE 


81 


0A 


ELSE3 


CMPA 


-0A ELSE CARRY := B < 10Z; 


389 


C8B0 


39 






RTS 


END 


318 


C0B1 


0C 




ELSE2 


CLC 


ELSE CARRY := FALSE; 


311 








ENDIF1 


EQU 


BIN := B; 


312 


C0B2 


39 






RTS 


END; (* BIN «) 


313 


C0B3 








END 


BIN 


314 














315 














316 














317 














318 














319 








« 


FUNCTION HEX (A:BYTE) : CHAR; 


320 








* 


BEGIN 




321 








* 


IF 


A >= 10Z 


322 








« 


THEN HEX := CHAR(A + BYTE('B') + BYTE('8') - BYTE( ':')); 


323 








* 


ELSE HEX := CHAR(A + BYTE('8')); 


324 








* 


END; 


(» HEX *) 


325 














326 














327 








HEX 


EQU 


* 


328 


C0B3 








BEGIN 


HEX 


329 


C0B3 


81 


0A 


IF 


CMPA 


=0A 


339 


C0B5 


2D 


02 




BLT 


ELSE 


331 


C0B7 


8B 


07 


THEN 


ADDA 


= , A'-':' 


332 


C0B9 


8B 


30 


ELSE 


ADDA 


= •0' 


333 


C0BB 


39 






RTS 




334 


C0BC 








END 


HEX 


335 
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337 
338 
330 
340 
341 
342 
343 
344 
345 
346 
347 

348 C0BC 

349 C0BC 8D C7 

350 C0BE 48 

351 C0BF 48 

352 C0C0 48 

353 C0C1 48 

354 C0C2 97 80 

355 C0C4 8D BF 

356 C0C6 9A 80 

357 C0C8 39 

358 C8C9 
359 

360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 

374 C0C9 

375 C0C9 36 

376 COCA 36 

377 C0CB 44 

378 C0CC 44 

379 C0CD 44 

380 C0CE 44 

381 C0CF 8D BF 

382 C0D1 32 

383 C0D2 84 0F 

384 C0D4 8D BA 

385 C0D6 32 

386 C0D7 39 

387 C0D8 
388 



IN. BYTE 



OUT. BYTE 



PROCEDURE INBYTE (VAR A:BYTE); 

VAR C : BYTE; 

BEGIN 

INHEX(A); 

C := 16 « A; 

INHEX(A); 

A : = A + C; 
END; (* INBYTE «) 



EQU * 
BEGIN INBYTE 
BSR IN. HEX 



ASL 

ASL 

ASL 

ASL 

STAA 

BSR 

ORAA 

RTS 

END 



A 

A 

A 

A 

C 

IN. HEX 

C 

INBYTE 



PROCEDURE OUTBYTE (A:BYTE); 
VAR B : BYTE; (« A-REG *) 
BEGIN 

B := A MOD 16Z; 

A := A DIV 16Z; 

OUTHEX(A) ; 

OUTHEX(B); 
END; (• OUTBYTE *) 



EQU * 
BEGIN OUTBYTE 
PSH A 

A 

A 

A 

A 

A 

OUT. HEX 

A (B) 

=0F 

OUT. HEX 

A 



PSH 

LSR 

LSR 

LSR 

LSR 

BSR 

PUL 

ANDA 

BSR 

PUL 

RTS 

END 



OUTBYTE 
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390 








» 


PROCEDURE INWORD (X: ADDRESS); 


391 








« 


BEGIN 


392 








* 


INBYTE(M[X]); 


393 








« 


INBYTE(M[X+lj); 


394 








* 


END; (» INWORD *) 


395 












396 












397 








IN. WORD 


EQU * 


398 


C9D8 








BEGIN INWORD 


399 


C808 


36 






PSH A 


400 


C0D9 


8D 


El 




BSR IN. BYTE 


401 


C0DB 


A7 00 




STAA 0,X 


402 


C0DD 


8D 


DD 




BSR IN. BYTE 


403 


C0DF 


A7 01 




STAA 1,X 


404 


C0E1 


32 






PUL A 


405 


C0E2 


39 






RTS 


406 


C0E3 








END INWORD 


407 












408 












409 












410 












411 








* 


PROCEDURE OUTWORD (X: ADDRESS); 


412 








« 


BEGIN 


413 








* 


OUTBYTE(M[X]); 


414 








* 


OUTBYTE(M[X+l]); 


415 








« 


END; (* OUTWORD • ) 


416 












417 












418 








OUT. WORD 


EQU « 


419 


C0E3 








BEGIN OUTWORD 


420 


C0E3 


36 






PSH A 


421 


C0E4 


A6 


00 




LDAA 0,X 


422 


C0E6 


8D 


El 




BSR OUT. BYTE 


423 


C0E8 


A6 


01 




LDAA 1,X 


424 


C0EA 


8D 


DD 




BSR OUT. BYTE 


425 


C0EC 


32 






PUL A 


426 


C0ED 


39 






RTS 


427 


C0EE 








END OUTWORD 


428 
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PANEL 



430 














431 










* 


PROCEDURE FASTREAD; 


432 










* 


BEGIN 


433 










* 


VCH(ESC); 


434 










* 


VCH(LOWER.E); 


435 










* 


END; (« FASTREAD *) 


436 














437 














438 










FAST. READ 


EQU » 


439 


C0EE 










BEGIN FASTREAD 


440 


C0EE 


36 








PSH A 


441 


C8EF 


86 


IB 






LDAA =ESC 


442 


C0F1 


BO 


ce 


51 




JSR y.CH 


443 


C0F4 


86 


65 






LDAA -LOVER. E 


444 


C0F6 


BD 


C0 


51 




JSR W.CH 


445 


C0F9 


32 








PUL A 


446 


C0FA 


39 








RTS 


447 


C0FB 










END FASTREAD 


448 














449 














450 














451 














452 










ft 


PROCEDURE LINEREAD; 


453 










* 


BEGIN 


454 










* 


WSTRING(READCTRL); 


455 










* 


END; 


456 














457 










LINE. READ 


EQU * 


458 


C0FB 










BEGIN LINEREAD 


459 


C6FB 


BD 


C2 


59 




JSR PUSHX 


460 


C0FE 


CE 


C0 


00 




LDX =READ.CTRL 


461 


C101 


BD 


C0 


6A 




JSR W. STRING 


462 


C104 


BD 


C2 


70 




JSR PULLX 


463 


C107 


39 








RTS 


464 


C108 










END LINEREAD 


465 















PANEL 



467 


C108 


2E 


08 87 


DGTOM 




C10B 


60 


3D 2E 






C18E 


00 


07 60 






cm 


01 








468 


C112 


2E 


00 


07 


DGTOD 




C115 


60 


ID 






469 












470 










CODE 


471 


C117 










472 












473 


0003 


08 






STAT0 


474 












475 










DATA 


476 


0004 










477 












478 


C117 


8D 


04 




EXX 


479 


C119 


B7 


3C 


15 




488 


cue 


39 








481 












482 


CUD 


36 






LDMIR 


483 


CUE 


A6 


00 






484 


C120 


B7 


3C 


88 




485 


C123 


A6 


01 






486 


C125 


B7 


3C 


09 




487 


C128 


A6 


02 






488 


C12A 


B7 


3C 


0A 




489 


C12D 


A6 


03 






498 


C12F 


B7 


3C 


0B 




491 


C132 


A6 


04 






492 


C134 


B7 


3C 


0C 




493 


C137 


08 








494 


C138 


08 








495 


C139 


08 








496 


C13A 


08 








497 


C133 


08 








498 


C13C 


32 








499 


C13D 


39 








500 












501 


C13E 


36 






D2911 


582 


C13F 


96 


03 






503 


C141 


84 


EF 






504 


C143 


97 


03 




D29A 


505 


C145 


B7 


3C 


13 




586 


C148 


32 








587 


C149 


39 








588 












509 


C14A 


36 






UNLCH 


518 


C14B 


96 


03 






511 


C14D 


8A 


08 






512 


C14F 


28 


F2 






513 












514 


C151 


36 






LATCH 


515 


C152 


96 


03 






516 


C154 


84 


F7 






517 


C156 


20 


EB 






518 
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BYTE 2E, 0,7,68, 3D, 2E, 0,7,60,1 



BYTE 2E, 0,7, 60, ID 



SET 
ORG 



DATA 



BYTE 



SET 


S 


ORG 


CODE 


BSR 


LDMIR 


STAA 


SSP 


RTS 




PSH 


A 


LDAA 


0,X 


STAA 


MIR4 


LDAA 


1,X 


STAA 


MIR3 


LDAA 


2,X 


STAA 


MIR2 


LDAA 


3,X 


STAA 


MIR1 


LDAA 


4,X 


STAA 


MIR0 


INX 




INX 




INX 




INX 




INX 




PUL 


A 


RTS 




PSH 


A 


LDAA 


STAT8 


ANDA 


=0EF 


STAA 


STAT8 


STAA 


C0N8 


PUL 


A 


RTS 




PSH 


A 


LDAA 


STAT8 


ORAA 


=8 


BRA 


D29A 


PSH 


A 


LDAA 


STAT0 


ANDA 


=0F7 


BRA 


D29A 



UNLATCH MICRO MEMORY ADDRESS REGISTER 
BIT3 := 1 

LATCH MICRO MEMORY ADDRESS REGISTER 
BIT3 := 



PANEL 
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519 


C158 


36 






528 


C159 


96 


03 




521 


C15B 


84 


7F 




522 


C15D 


28 


E4 




523 










524 


C15F 


36 






525 


C160 


96 


03 




526 


C162 


8A 


80 




527 


C164 


28 


DD 




528 










529 


C166 


36 






530 


C167 


96 


03 




531 


C169 


8A 


48 




532 


C16B 


20 


Do 




533 










534 


C16D 


36 






535 


C16E 


96 


83 




536 


C170 


84 


BF 




537 


C172 


28 


CF 




538 










539 


C174 


36 






540 


C175 


96 


03 




541 


C177 


8A 


18 




542 


C179 


20 


C8 




543 










544 


C17B 


8D 


CI 




545 


C17D 


FF 


3C 


10 


546 


C180 


8D 


CF 




547 


C182 


B7 


3C 


11 


548 


C185 


F7 


3C 


10 


549 


C188 


B7 


3C 


14 


558 


C18B 


8D 


E7 




551 


C18D 


8D 


BB 




552 


C18F 


39 






553 










554 


C190 


8D 


AC 




555 


C192 


FF 


3C 


10 


556 


C195 


8D 


15 




557 


C197 


BD 


C2 


59 


558 


C19A 


37 






559 


C19B 


CE 


3C 


8D 


568 


C19E 


5C 






561 


C19F 


09 






562 


C1A0 


5A 






563 


C1A1 


26 


FC 




564 


C1A3 


A6 


88 




565 


C1A5 


33 






566 


C1A6 


BD 


C2 


70 


567 


C1A9 


80 


eg 




568 


C1AB 


39 






569 










570 


C1AC 


36 






571 


C1AO 


96 


83 




572 


C1AF 


84 


DF 




573 


C1B1 


97 


83 




574 


C1B3 


B7 


3C 


13 


575 


C1B6 


B7 


3C 


15 



EDMIR 



EPMIR 



START 



STOP 



E2911 



WUM 



RUM 



Rl,. 



MCLK 



PSH 


A 


ENABLE DIAGNOSTIC MIR 


LDAA 


STAT0 




ANDA 


=07F 


BIT7 := 


BRA 


D296 




PSH 


A 


ENABLE PERSONAL COMPUTER'S MIR 


LDAA 


STAT8 




ORAA 


=80 


BIT7 := 1 


BRA 


D29A 




PSH 


A 


START CPU 


LDAA 


STAT0 




ORAA 


=40 


BIT6 := 1 


BRA 


D29A 




PSH 


A 


STOP CPU 


LDAA 


STAT0 




ANDA 


=0BF 


BIT6 := 


BRA 


D29A 




PSH 


A 




LDAA 


STAT0 




ORAA 


=10 




BRA 


D29A 




BSR 


D2911 




STX 


UAR1 




BSR 


LATCH 




STAA 


UAR8 




STAB 


UAR1 




STAA 


MEMPU 




BSR 


E2911 




BSR 


UNLCH 




RTS 






BSR 


D2911 




STX 


UAR1 




BSR 


MCLK 




JSR 


PUSHX 




PSH 


B 




LDX 


=MIR8+1 




INC 


B 




DEX 






DEC 


B 




BNE 


Rl 




LDAA 


0,X 




PUL 


B 




JSR 


PULLX 




BSR 


E2911 




RTS 






PSH 


A 




LDAA 


STAT0 




ANDA 


=0DF 




STAA 


STAT0 




STAA 


C0N8 




STAA 


SSP 





PANEL 
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576 C1B9 8 A 20 

577 C1BB 97 03 

578 C1BD B7 3C 13 

579 C1C0 32 



588 


C1C1 


39 


581 






582 






583 






584 


C1C2 




585 






586 


0004 


00 


587 


0005 


08 


588 


0006 


00 


589 


0007 


00 


590 


0008 


80 


591 






592 






593 


0009 




594 






595 


C1C2 


36 


596 


C1C3 


37 


597 


C1C4 


BD C2 59 


598 


C1C7 


33 


599 


C1C8 


32 


600 


C1C9 


36 


601 


C1CA 


37 


602 


C1CB 


48 



CODE 



MTMP4 
MTMP3 
MTMP2 
MTMP1 
MTMP0 

DATA 



STUPC 



603 C1CC 59 

604 C1CD 48 

605 C1CE 59 

606 C1CF 48 

607 C1D0 59 

608 C1D1 48 

609 C1D2 59 

610 C1D3 8A 08 

611 C1D5 D7 04 

612 C1D7 97 05 

613 C1D9 CE 07 20 

614 C1DC DF 06 

615 C1DE 86 FF 

616 C1E0 97 08 

617 C1E2 CE 00 04 

618 C1E5 BD CI ID 

619 C1E8 8D C2 

620 C1EA BD C2 70 

621 C1ED 33 

622 C1EE 32 

623 C1EF 39 
624 

625 C1F0 B6 3C 0F RCPU 

626 C1F3 F6 3C 0E 

627 C1F6 39 
628 

629 C1F7 B7 3C 0F UCPU 

630 C1FA F7 3C 0E 

631 C1FD 39 



ORAA 


=20 


STAA 


STAT0 


STAA 


C0N8 


PUL 


A 


RTS 




SET 


* 


ORG 


DATA 


BYTE 





BYTE 





BYTE 





BYTE 





BYTE 





SET 


* 


ORG 


CODE 


PSH 


A 


PSH 


B 


JSR 


PUSHX 


PUL 


B 


PUL 


A 


PSH 


A 


PSH 


B 


ASL 


A 


ROL 


B 


ASL 


A 


ROL 


B 


ASL 


A 


ROL 


B 


ASL 


A 


ROL 


B 


ORAA 


=8 


STAB 


MTMP4 


STAA 


MTMP3 


LDX 


=0720 


STX 


MTMP2 


LDAA 


=0FF 


STAA 


MTMP0 


LDX 


=MTMP4 


JSR 


LDMIR 


BSR 


MCLK 


JSR 


PULLX 


PUL 


B 


PUL 


A 


RTS 




LDAA 


CPU0 


LDAB 


CPU1 


RTS 




STAA 


CPU0 


STAB 


CPU1 


RTS 





(B,A) := X 
KEEP X ON STACK 
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PANEL 



633 


C1FE 


86 


08 


634 


C200 


B7 


3C 08 


635 


C203 


4F 




636 


C204 


B7 


3C 09 


637 


C207 


86 


07 


638 


C209 


B7 


3C 0A 


639 


C20C 


86 


60 


648 


C20E 


B7 


3C 0B 


641 


C211 


86 


3D 


642 


C213 


B7 


3C 0C 


643 


C216 


FF 


3C 0E 


644 


C219 


B7 


3C 15 


645 


C21C 


86 


01 


646 


C21E 


B7 


3C BC 


647 


C221 


B6 


3C 0F 


648 


C224 


F6 


3C 0E 


649 


C227 


39 




650 


C228 


36 




651 


C229 


86 


08 


652 


C22B 


B7 


3C 08 


653 


C22E 


4F 




654 


C22F 


B7 3C 09 


655 


C232 


86 


87 


656 


C234 


B7 


3C 8A 


657 


C237 


86 


68 


658 


C239 


B7 


3C 0B 


659 


C23C 


32 




669 








661 


C23D 


B7 


3C BF 


662 


C240 


F7 


3C 0E 


663 


C243 


36 




664 


C244 


86 


ID 


665 


C246 


B7 


3C 0C 


666 


C249 


B7 


3C 15 


667 


C24C 


86 


3D 


668 


C24E 


B7 


3C 0C 


669 


C251 


FF 


3C 8E 


670 


C254 


B7 


3C 15 


671 


C257 


32 




672 


C258 


39 





RMM 



RMMS 



WMM 



VMMS 



LDAA 


=00 


STAA 


MIR4 


CLR 


A 


STAA 


MIR3 


LDAA 


=7 


STAA 


MIR2 


LDAA 


=60 


STAA 


MIR1 


LDAA 


=3D 


STAA 


MIR0 


STX 


CPU1 


STAA 


SSP 


LDAA 


=1 


STAA 


MIR0 


LDAA 


CPU0 


LDAB 


CPU1 


RTS 




PSH 


A 


LDAA 


=00 


STAA 


MIR4 


CLR 


A 


STAA 


MIR3 


LDAA 


=7 


STAA 


MIR2 


LDAA 


=68 


STAA 


MIR1 


PUL 


A 


STAA 


CPU0 


STAB 


CPU1 


PSH 


A 


LDAA 


=1D 


STAA 


MIRB 


STAA 


SSP 


LDAA 


=3D 


STAA 


MIR0 


STX 


CPU1 


STAA 


SSP 


PUL 


A 


RTS 





PANEL 
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674 


C259 


97 


00 


PUSH.X 


STAA 


C 




675 


C25B 


DF 


01 




STX 


X.SAVE 




676 


C25D 


32 






PUL 


A 


HI(RA) 


677 


C25E 


B7 


20 


01 


STAA 


RET+1 




678 


C261 


32 






PUL 


A 


LO(RA) 


679 


C262 


B7 


20 0? 


STAA 


RET+2 




680 


C265 


96 


02 




LDAA 


X.SAVE+1 


LO(X) 


681 


C267 


36 






PSH 


A 




682 


C268 


96 


01 




LDAA 


X.SAVE 


HI(X) 


683 


C26A 


36 






PSH 


A 




684 


C26B 


96 


80 




LDAA 


C 




685 


C26D 


7E 


20 


00 


JMP 


RET 


'RTS' 


686 
















687 


C270 


97 


00 


PULL.X 


STAA 


C 




688 


C272 


32 






PUL 


A 


HI(RA) 


689 


C273 


B7 


20 


01 


STAA 


RET+1 




690 


C276 


32 






PUL 


A 


LO(RA) 


691 


C277 


B7 


20 


02 


STAA 


RET+2 




692 


C27A 


32 






PUL 


A 


HI(X) 


693 


C27B 


97 


01 




STAA 


X.SAVE 




694 


C27D 


32 






PUL 


A 


LO(X) 


695 


C27E 


97 


02 




STAA 


X.SAVE+1 




696 


C280 


DE 


01 




LDX 


X.SAVE 




697 


C282 


96 


00 




LDAA 


C 




698 


C284 


7E 


20 


00 


JMP 


RET 


'RTS' 


699 
















780 


C287 


8D 


D0 


PRINT. X 


BSR 


PUSH.X 




701 


C289 


33 






TSX 






702 


C28A 


BD 


C0 


E3 


JSR 


OUT. WORD 




703 


C28D 


8D 


El 




BSR 


PULL.X 




704 


C28F 


39 






RTS 






705 
















706 
















707 
















708 








RESET 


EQU 


* 




709 


C290 








BEGIN 


RESET 




710 


C290 


36 






PSH 


A 




711 


C291 


86 


BE 




LDAA 


=0BE 




712 


C293 


97 


03 




STAA 


STAT0 




713 


C295 


B7 


3C 


13 


STAA 


CON0 




714 


C298 


B7 


3C 


15 


STAA 


SSP 




715 


C29B 


85 


BF 




LDAA 


=0BF 




716 


C29D 


7E 


CI 


43 


JMP 


D29A 




717 


C2A0 








END 


RESET 





MAKES A CPU CLOCK PULSE 



PANEL 
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719 C2A8 

720 

721 

722 

723 

724 

725 

726 C2A8 

C2A3 
727 
728 
729 C2A5 

C2A8 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 

749 C2AA 

750 C2AD 

751 C2AE 

752 C2B1 

753 C2B4 

754 C2B7 

755 C2B9 

756 C2BB 

757 C2BC 

758 C2BD 

759 C2BE 

760 C2BF 

761 C2C0 

762 C2C1 

763 C2C2 

764 C2C3 

765 C2C5 

766 C2C7 

767 C2CA 

768 C2CD 

769 C2CE 



BEGIN REGISTERS 
DEF READ. REG 

MICROINSTRUCTION USED BY READ/WRITE REGISTER 

SH PC S E 



6F 80 07 
60 0D 



2E 00 07 

60 F0 



"WRITE. R 
WRITE, R 



•READ.R 
READ.R 



Q.REG 



DST FCT SRC C 
1 B OR DZ 
BYTE 



A B 
- 

6F,80,e7,60,0D 



SC DST 
8 ALU 



SRC 
PANEL 



1 - 

BYTE 



EQU 



OR 



ZA 8 8 8 - 
2E,08,07,60,0F0 



ALU 



10 



DEFINITION OF Q. REGISTER 



A0 
ID 



BD C2 59 

37 

FF 3C BE 

CE C2 

BD CI 

CI 10 

27 15 
36 

4F 

58 

58 

58 

58 

53 

49 

CA 87 

8A 88 

F7 3C 8A 

B7 3C 89 

32 

28 05 



« 

* PROCEDURE LOADREG(REGNR, VALUE); 

(• LOAD 2981 REGISTER 'REGNR' WITH 'VALUE' *) 
BEGIN CPU := VALUE; 
MIR := (1 B OR DZ SC 8 ALU PANEL); 

* IF REGNR <> Q.REG THEN MIR. REG = REGNR 
ELSE MIR. DST := Q 

END; 

SINGLE STEP 
END; 

* 

« PARAMETERS 

REGNR - B REGISTER 
VALUE - X REGISTER 

* 

LOADREG 



JSR 


PUSHX 


PSH 


B 


STX 


CPU1 


LDX 


=WRITE.R 


JSR 


LDMIR 


CMPB 


=Q.REG 


BEQ 


LOAD.Q 


PSH 


A 


CLR 


A 


ASL 


B 


ASL 


B 


ASL 


B 


ASL 


B 


ASL 


B 


ROL 


A 


ORAB 


-07 


ORAA 


=80 


STAB 


MIR2 


STAA 


MIR3 


PUL 


A 


BRA 


LDR 



MOST SIGNIFICANT INTO A 
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PANEL 

771 C2D0 

772 C2D2 

773 C2D5 

774 C2D8 

775 C2D9 

776 C2DC 
777 

778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 

795 C2DD 

796 C2DE 

797 C2E1 

798 C2E4 

799 C2E6 

800 C2E8 

801 C2E9 

802 C2EC 
883 C2EE 

804 C2F0 

805 C2F3 

806 C2F6 

807 C2F7 

808 C2F8 

809 C2F9 

810 C2FA 

811 C2FB 

812 C2FC 

813 C2FD 
814 

815 C2FE 



REGISTERS 



C6 0F 

F7 3C 08 

B7 3C 15 

33 

BD C2 70 

39 



LOAD.Q 
LDR 



LDAB 

STAB 

STAA 

PUL 

JSR 

RTS 



=0F 

MIR4 

SSP 

B 

PULLX 



MAKE SINGLE STEP 



* 

* PROCEDURE READREG(REGNR, VAR VALUE); 

(» GET CONTENT OF 2901 REGISTER 'REGNR' «); 

- - - ALU); 
REGNR 



37 

CE C2 A5 

BD CI ID 

CI 10 

27 06 

58 

F7 3C 09 

20 05 

C6 2D 

F7 3C 88 

FE 3C 0E 

02 

82 

02 

02 

02 

02 

33 

39 



READ.Q 



RDR 



BEGIN MIR :- ( 


1 - OR ZA 8 SC 


IF REGNR <> 


Q.REG THEN MIR. REG 


ELSE MIR.RS 


:= ZQ; 


END; 




EDMIR; VALUE 


:= CPU ; EPMIR 


END; 




PARAMETERS 




REGNR B REG 


VALUE X REG 


EG PSH 


B 


LDX 


=READ.R 


JSR 


LDMIR 


CMPB 


=Q.REG 


BEQ 


READ.Q 


ASL 


B 


STAB 


MIR3 


BRA 


RDR 


Q LDAB 


=2D 


STAB 


MIR4 


LDX 


CPU1 


NOP 




NOP 




NOP 




NOP 




NOP 




NOP 




PUL 


B 


RTS 





END REGISTERS 
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PANEL 



817 C2FE BEGIN MENU 

818 DEF GETWORD, GETKEY, MENU .COMMANDS, COM. ESC 

819 DEF XWORD,CARR,MAINID,SUBID 
820 

821 * PROCEDURE GETWORD (VAR X.WORD: WORD; VAR A: CHAR; 

822 * VAR CARR: BYTE); 

823 » VAR B: BYTE; 

824 « C: BYTE; (• A-REG ») 

825 * BEGIN 

826 * X.WORD :- 0; CARR := 8; 

827 * R.CH(A); 

828 « WHILE A = BLANK DO R.CH(A) END; 

829 « LOOP 

830 * C := BIN(A); 

831 « IF CARRY (« SIDE EFFECT OF BIN ») 

832 * THEN EXIT END; 

833 * X.WORD := 16 * X.WORD + C; 

834 * CARR :- -1; 

835 * R.CH(A); 

836 * END; 

837 * END GETWORD 
838 

839 CODE SET « 

840 C2FE ORG DATA 

841 0009 88 00 ACT. MENU WORD MENU OF THE ACTUAL COMMAND-INTERPRETER 

842 000B 08 88 MAIN. ID WORD 

843 000D 00 00 SUB. ID WORD 

844 088F 08 80 X.WORD WORD 

845 0011 00 CARR BYTE 

846 0812 00 08 SUB. M. STACK WORD 
847 

848 DATA SET « 

849 0814 ORG CODE 
850 

851 GET. WORD EQU « 

852 C2FE BEGIN GETWORD 

853 C2FE BD C2 59 JSR PUSH.X 

854 C301 37 PSH B 

855 C302 CE 00 0F LDX =X.WORD 

856 C305 6F 00 CLR 0,X 

857 C307 6F 01 CLR 1,X X.WORD := 

858 C309 7F 00 11 CLR CARR 
859 
868 C30C BD C0 24 FIRST. CHAR JSR R.CH 

861 C30F 81 20 CMPA =BLANK 

862 C311 27 F9 BEQ FIRST. CHAR 

863 C313 36 LOOP PSH A 

864 C314 BD C0 9C JSR BIN 

865 C317 25 17 BCS EXIT. LOOP 
866 

867 C319 C6 84 LDAB =4 

868 C31B 68 81 FOR ASL 1,X 

869 C31D 69 80 ROL 0,X 

870 C31F 5A DEC B 

871 C328 26 F9 END. FOR BNE FOR 



PANEL 



MENU 



GETWORD 
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873 


C322 


AA 


01 




874 


C324 


A7 


01 




875 


C326 


32 






876 


C327 


CA 


FF 




877 


C329 


D7 


11 




878 


C32B 


BD 


C0 


24 


879 


C32E 


23 


E3 




880 










881 


C330 


32 






882 


C331 


33 






883 


C332 


BD 


C2 


70 


884 


C335 


39 






885 


C336 








886 










887 










888 










889 










890 










891 










892 










893 










894 










895 










896 










897 










898 










899 










900 










981 










902 










903 


C336 


BD 


C2 


59 


904 


C339 


37 






905 


C33A 


DE 


09 




986 


C33C 


E6 


80 




907 


C33E 


08 






908 










909 


C33F 


BD 


C0 


78 


910 


C342 


BD C8 


6A 


911 


C345 


08 






912 


C346 


08 






913 


C347 


5A 






914 


C348 


26 


F5 




915 


C34A 


BD 


C0 


78 


916 


C34D 


33 






917 


C34E 


BD 


C2 


70 


918 


C351 


39 







EXIT, LOOP PUL 



MENU 



FOR 



END. FOR 



ORAA 


1,X 


STAA 


1,X 


PUL 


A 


ORAB 


=0FF 


STAB 


CARR 


JSR 


R.CH 


BRA 


LOOP 


PUL 


A 


PUL 


B 


JSR 


PULL.X 


RTS 




END 


GETUOR 



X.WORD := 16 « X.WORD + A 



DUMMY 



PROCEDURE MENU (ACT. MENU: ADDRESS); 
X : CARDINAL; 




B : BYTE; 


BEGIN 


X 


:= ACT. MENU; 


B :- M[X]; INC(X); 

FOR B :- B TO 1 BY -1 DO 




WSTRING(X); 
X := X + 2; 


END; 


W. 


CRLF; 


END 


MENU; 


EQU 
JSR 


* 

PUSH.X 


PSH 


B 


LDX 


ACT. MENU 


LDAE 


0,X 


INX 




JSR 


W.CRLF 


JSR 


W. STRING 


INX 




INX 




DEC 


B 


BNE 


FOR 


JSR 


W.CRLF 


PUL 


B 


JSR 


PULL.X 



RTS 
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PANEL MENU 



929 » PROCEDURE GETKEY(X.VORD: WORD; VAR CARRY: BOOLEAN); 

921 * VAR A: CHAR; 

922 » CARR: BYTE; 

923 » X: CARDINAL; 

924 » BEGIN 

925 « W.CRLF; W.CH(PROMPT); 

926 * GETWORD(X.WORD,A,CARR); 

927 « X := ACT. MENU; 

928 * LOOP 

929 * WHILE A=BLANK DO R.CH(A) END; 
938 * B := M[X]; 

931 « INC(X); 

932 * REPEAT 

933 « IF A = M[X] 

934 « THEN 

935 » SKIPTEXT; 

936 * CARRY := CARR < 0; 

937 * GOTO M[X]; 

938 * ELSE 

939 » SKIPTEXT; 
948 « INC(X,2); 
g41 * END; 

942 « DEC(B); 

943 * UNTIL B=0; 

944 * NO; 

945 * END; 

946 « END GETKEY; 



PANEL 



MENU 
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948 










GET. KEY 


EQU 


* 


949 


C352 










BEGIN GETKEY 


950 


C352 


37 








PSH 


B 


951 


C353 


36 








PSH 


A 


952 


C354 


BD 


C0 


78 




JSR 


W.CRLF 


953 


C357 


86 


2A 






LDAA 


=PROMPT 


954 


C359 


BD 


C0 


51 




JSR 


W.CH 


955 


C35C 


BD 


C2 


FE 


LOOP 


JSR 


GET. WORD 


956 
















957 


C35F 


81 


20 




WHILE 


CMPA 


=BLANK 


958 


C361 


26 


05 






BNE 


END. WHILE 


959 


C363 


BD 


C0 


24 




JSR 


R.CH 


960 


C366 


20 


F7 






BRA 


WHILE 


961 










END. WHILE 


EQU 


* 


962 


C368 


84 


DF 






ANDA 


=SHIFT.MASK 


963 


C36A 


DE 


09 






LDX 


ACT. MENU 


964 


C36C 


E6 


00 






LDAB 


0,X 


965 


C36E 


08 








INX 




966 
















967 


C36F 


Al 


00 




REPEAT 


CMPA 


0,X 


968 


C371 


26 


0B 






BNE 


ELSE 


969 


C373 


3D 


15 






BSR 


SKIP. TEXT 


970 


C375 


32 








PUL 


A 


971 


C376 


33 








PUL 


B 


972 


C377 


EE 


00 






LDX 


0,X 


973 


C379 


79 


00 


11 




ROL 


CARR 


974 


C37C 


6E 08 






JMP 


0,X 


975 
















976 


C37E 


8D 


0A 




ELSE 


BSR 


SKIP. TEXT 


977 


C380 


08 








INX 




978 


C381 


08 








INX 




979 


C382 


5A 








DEC 


B 


980 


C383 


26 


EA 




UNTIL 


BNE 


REPEAT 


981 
















982 


C385 


BD 


C0 


97 




JSR 


NO 


983 


C388 


20 


D2 




END. LOOP 


BRA 


LOOP 


984 
















985 


C38A 


03 






SKIP. TEXT 


INX 




986 


C38B 


6D 


00 






TST 


0,X 


987 


C38D 


26 


FB 






BNE 


SKIP. TEXT 


988 


C38F 


08 








INX 




989 


C390 


39 








RTS 




990 
















991 


C391 










END 


GETKEY 



CARRY := BIT7(CARR) 



PANEL MENU 



994 










995 










996 










997 










998 










999 










1068 










1001 

1 QQO 










Vovt. 

1003 


C391 


DF 


09 




1004 


C393 


9F 


12 




1005 


C395 


9E 


12 




1006 


C397 


BO 


C0 


78 


1007 


C39A 


DE 


BB 




1008 


C39C 


BD 


C0 


6A 


1009 










1010 


C39F 


8D 


Bl 




1011 


C3A1 


20 


FC 




1012 










1013 


C3A3 








1014 










1015 










1016 










1017 


C3A3 


86 


21 




1018 


C3A5 


BD 


C0 


51 


1019 


C3A8 


32 






1020 


C3A9 


39 
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PROCEDURE COMMANDS(MAIN.ID,X; ADDRESS); 

VAR C: BOOLEAN; Y: WORD; (» DUMMIES *) 
BEGIN 

ACT. MENU := X; 

V.STRING(MAIN.ID); 

LOOP 

GET.KEY(Y.C); 

END; 
END COMMANDS; 



COMMANDS 
COM. ESC 

REP 



STX 


ACT, MENU 


STS 


SUB. M. STACK 


LDS 


SUB. M. STACK 


JSR 


W.CRLF 


LDX 


MAIN. ID 


JSR 


W. STRING 


BSR 


GET. KEY 


BRA 


REP 



END MENU 



MONO LDAA =EXCLAM 

JSR W.CH 

PUL A 
RTS 
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PANEL 

1023 « PROME000 « 

^024 **»*#****#******#**«***### 

1025 

1026 C3AA ORG 0E0B0 

1027 

1028 USE SOFT. INT, IRQ ,NMI (AS INTERRUPT VECTORS) 

1029 

1030 E000 BEGIN MOTOROLA 

1031 USE COMMANDS 

1032 USE LOAD, DUMP, INSPECT, BOOT. GO, GO 

1033 USE READ. CH, READ. HEX, READ. BYTE, READ. WORD 
1034 

1035 DEF U. RAM. LOAD 

1035 

1037 CODE SET * 

1038 E000 ORG DATA 
1039 

1840 0014 00 U. RAM. LOAD BYTE MICRO RAM LOADED 

1041 0015 00 M. RAM. LOAD BYTE MOTOROLA RAM LOADED 

1042 0016 01 TYPING BYTE 1 
1043 

1044 DATA SET * 

1845 0017 ORG CODE 

1046 

1047 

1048 

1049 

1050 E000 7E E2 73 JMP MONITOR 
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PANEL MOTOROLA 



1052 « CHARACTER-, HEXDIGIT-, BYTE- AND VORDINPUT WITHOUT ECHO 

1053 « (TO BE USED BY TAPEDRIVING LOADERS) 
1054 

1055 E003 BEGIN NO. ECHO 

1056 DEF READ. CH, READ. HEX, READ. BYTE, READ, WORD 
1057 

1058 READ.CH EQU * 

1059 E003 B6 40 00 REPEAT LDAA HP. STATUS 
1050 E006 47 ASR A 

1061 E007 24 FA UNTIL BCC REPEAT 

1062 E009 B6 40 01 LDAA HP. DATA 

1063 E00C 39 RTS 
1064 
1065 

1066 READ. HEX EQU « 

1067 E00D 8D F4 REP BSR READ.CH 

1068 E00F BD C0 9C JSR BIN 

1069 E012 24 05 BCC END. REP 

1070 E014 BD C0 97 JSR NO 

1071 E017 20 F4 BRA REP 

1072 E019 39 END. REP RTS 
1073 
1074 

1075 READ. BYTE EQU « 

1076 E01A 8D Fl BSR READ. HEX 

1077 E01C 48 ASL A 

1078 E01D 48 ASL A 

1079 E01E 48 ASL A 
1880 E01F 48 ASL A 
1081 E020 97 00 STAA C 
1882 E022 8D E9 BSR READ. HEX 
1083 E024 9A 00 ORAA C 
1B84 E026 39 RTS 
1885 
1086 

1087 READ. WORD EQU » 

1088 E027 36 PSH A 

1089 E028 8D F0 BSR READ. BYTE 

1090 E02A A7 80 STAA 0,X 
1891 E02C 8D EC BSR READ. BYTE 

1092 E02E A7 01 STAA 1,X 

1093 E030 32 PUL A 

1094 E031 39 RTS 
1095 
1096 E032 END NO. ECHO 



v 
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PANEL MOTOROLA 

1098 » LOAD CODE FROM HP-CASSETTE (STANDARD HEXADECIMAL CODED 6800-FORMAT) 

3099 * ***»**********#***#***#*** 

1100 

1181 * PROCEDURE LOAD; 

1102 « VAR EOT: BOOLEAN; (« B-REG, 0=TRUE •) 

1183 

1184 * PROCEDURE FASTREAD; 

1105 * BEGIN 

1186 * WCH(ESC); 

1187 * WCH(LOWER.E); 

1188 « END FASTREAD; 
1109 

1110 * PROCEDURE READBLOCK; 

1111 « VAR CH : CHAR; (* A-REG *) 

1112 « CHECKSUM, (» RAM «) 

1113 » BYTECOUNT : BYTE; (« B-REG «) 

1114 « ADDR : ADDRESS; (« X-REG «) 

1115 * BEGIN 
1115 * REPEAT 

1117 » REPEAT 

1118 » RCH(CH); 

1119 » UNTIL CH = 'S'; 
1128 * READ(CH); 

1121 « UNTIL CH # '8'; (« SKIP HEADER ») 

1122 * EOT := CH - '9 1 ; 

1123 « IF NOT EOT 

1124 » THEN BEGIN 

1125 « INBYTE(BYTECOUNT); 

1126 « CHECKSUM := BYTECOUNT; 

1127 « INWORD(ADDR); 

1128 • CHECKSUM := CHECKSUM + ADDR MOD 48 + ADDR DIV 48; 

1129 * REPEAT 

1130 » INBYTE(M[ADDR]); 

1131 * CHECKSUM :- CHECKSUM + M[ADDR]; 

1132 * ADDR := ADDR + 1; 

1133 « BYTECOUNT :- BYTECOUNT - 1; 

1134 » UNTIL BYTECOUNT = 3; 

1135 * INBYTE(CH); (« CHECKSUM *) 

1136 * IF CHECKSUM <> COMPL(CH) 

1137 « THEN BEGIN 

1138 * WSTRINGC CHECKSUM ERROR'); 

1139 « END; 

1140 » , END; 

1141 • END READBLOCK; 

1142 * 

1143 « BEGIN (« LOAD ») 

1144 * FASTREAD; 

1145 « REPEAT 

1146 * READBLOCK; 

1147 « UNTIL EOT; 

1148 » REPEAT READ(CH) UNTIL CH=NULL; (» FILE MARK ») 

1149 « END LOAD; 
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PANEL 



MOTOROLA 



1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 



E032 

E032 
0017 00 

0018 

E032 



E032 
E034 
E036 
E038 
E03A 
E03C 

E03E 
E03F 
E041 
E043 
E045 
E046 
E049 
E04B 
E04D 
E04F 
E051 
E853 
E055 
E057 
E059 
E05B 
E05C 
E05D 
E05F 
E061 
E063 
E064 
E066 
E068 
E06B 



8D CF 
81 53 

26 FA 
8D C9 
81 30 

27 F4 

16 

C0 39 
27 2B 
8D D5 
16 

CE 08 01 
8D DC 
AB 88 
AB 81 
97 17 
DE 81 
8D C5 
A7 00 
9B 17 
97 17 
08 
5A 
CI 03 

26 F2 
8D B7 
43 

91 17 

27 86 
CE C0 
BD C0 



0C 

6A 



E06E 39 

E06F 



E06F BD C0 EE 

E872 8D BE 

E074 5D 

E075 26 FB 





BEGIN 


TAPE. LOAD 




DEF 


LOAD 


CODE 


SET 


* 




ORG 


DATA 


CHECK. SUM 


BYTE 





DATA 


SET 


» 




ORG 


CODE 


READ. BLOCK 


EQU 


* 




BEGIN READBLOCK 


REPEAT0 


EQU 


* 


REPEAT1 


BSR 


READ.CH 




CMPA 


= 'S" 


UNTIL1 


BNE 


REPEAT1 




BSR 


READ.CH 




CMPA 


= '0' 


UNTIL8 


BEQ 


REPEATS 



IF1 
THEN1 



REPEAT2 



UNTIL2 



IF2 
THEN2 

ENDIF 



LOAD 

REPEAT 

UNTIL 



TAB 

SUBB 

BEQ 

BSR 

TAB 

LDX 

BSR 



= '9' 

ENDIF 
READ. BYTE 



=X.SAVE 
READ. WORD 

ADDA 8,X 

ADDA 1,X 

STAA CHECKSUM 

LDX X.SAVE 

BSR READ. BYTE 

STAA 0,X 

ADDA CHECKSUM 

STAA CHECKSUM 

INX 

DEC B 

CMPB «=3 

BNE REPEAT2 

BSR READ. BYTE 

COM A 

CMPA CHECKSUM 

BEQ ENDIF 

LDX =MESS1 

JSR V. STRING 

EQU * 

RTS 

END READBLOCK 



EQU 

JSR 
BSR 
TST 

BNE 



USED BY READBLOCK (LOAD) 



SKIP UNTIL 'S' 



SKIP HEADER 



BYTECOUNT 



ADDRESS 



BYTECOUNT + ADDR(HI) * ADDR(LO) 



DATA 



CHECKSUM ♦ A 



CHECKSUM 



FAST. READ 

READ. BLOCK 

B END OF TAPE 

REPEAT 





PANEL 




MOTOROLA TAPELOAD 






1207 


E077 


CE 


C0 


B7 




LDX 


=MESS3 


1208 


E07A 


BD 


C0 


6A 




JSR 


V. STRING 


1209 


E07D 


8D 


84 




REP 


BSR 


READ.CH 


1210 


E07F 


4D 








TST 


A 


1211 


E080 


26 


FB 




UNT 


BNE 


REP 


1212 


E082 


7C 


00 


15 




INC 


M. RAM. LOAD 


1213 










* 


BRA 


SHLURF 


1214 


E085 










END 


TAPELOAD 


1215 
















1216 
















1217 


E085 


5F 






SHLURF 


CLR 


B 


1218 


E086 


BD 


C0 


46 


LISTEN 


JSR 


BREAK 


1219 


E089 


5A 








DEC 


B 


1220 


E08A 


26 


FA 






BNE 


LISTEN 


1221 


E08C 


39 








RTS 
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TRACE UNTIL FILE MARK 



LISTEN TO FURTHER CHARACTERS FROM THE HP 
AND SHLURF THEM 
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3ANEL 




MOTOROLA 




1223 








* 


PROCEDURE DUMP(X.MENU: ADDRESS); 


1224 








* 


VAR ADDR : ADDRESS; 


1225 

■1 OOR 








* 


A : CHAR; 


l^O 

1227 








* 


PROCEDURE DUMPLINE (VAR ADDR : ADDRESS); 


1228 








* 


VAR I : INTEGER; (« B-REG *) 


1229 








* 


J : INTEGER; (« LOWER 2 BITS OF ADDR 


1230 








« 


BEGIN 


1231 








* 


WCRLF; 


1232 








* 


PRINT(ADDR); 


1233 








* 


VCH(':'); 


1234 








» 


FOR I :- 1 TO 4 DO BEGIN 


1235 








tt 


FOR J :- 1 TO 4 DO BEGIN 


1236 








S 


W1BLANK; 


1237 








* 


OUTBYTE(M[ADDR]); 


1238 








* 


ADDR := ADDR + 1; 


1239 








* 


END; 


1240 








« 


W1BLANK; 


1241 








* 


END; 


1242 








* 


END DUMPLINE; 


1243 








* 




1244 








* 


BEGIN 


1245 








* 


ADDR := X.WORD; 


1246 








* 


GOTO ENTRY; 


1247 








* 


REPEAT 


1248 








* 


WRITEC ENTER ADDRESS:'); 


1249 








* 


INWORD(ADDR); 


1250 








» 


ENTRY: 


1251 








* 


ADDR := 18 » (ADDR DIV 10); 


1252 








* 


REPEAT 


1253 








* 


FOR I := 1 TO 10 DO DUMPLINE ( ADDR ) ; 


1254 








* 


REPEAT 


1255 








» 


RCH(A); 


1256 








* 


IF A = 'L' THEN DUMPLINE(ADDR); 


1257 








* 


UNTIL A <> 'L'; 


1258 








* 


UNTIL A <> 'P'; 


1259 








* 


UNTIL A <> 'A'; 


1260 








* 


END DUMP; 


1261 












1262 


E08D 








BEGIN DUMP 


1263 










DEF DUMP 


1264 












1265 








CODE 


SET » 


1266 


E08D 








ORG DATA 


1267 


0018 


00 


00 


ADDR 


WORD 


1268 








DATA 


SET « 


1269 


001 A 








ORG CODE 


1270 












1271 








DUMP. LINE 


EQU « 


1272 


E88D 








BEGIN DUMP. LINE 


1273 


E08D 


36 






PSH A 


1274 


E08E 


37 






PSH B 


1275 


E08F 


BD 


C0 78 




JSR W.CRLF 


1276 


E092 


DE 


18 




LDX ADDR 


1277 


E094 


BD 


C2 87 




JSR PRINT. X 


1278 


E097 


86 


3A 




LDAA - ' : ' 
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PANEL 




MOTOROLA DUMP 


DUMPLINE 


1279 


E099 


BD 


C0 


51 




JSR 


W.CH 


1280 


E09C 


C6 


04 






LDAB 


=4 


1281 
















1282 


E09E 


BD 


C0 62 


FOR 


JSR 


W.l. BLANK 


1283 


E0A1 


A6 00 






LDAA 


0,X 


1284 


E0A3 


BD 


C0 


eg 




JSR 


OUT. BYTE 


1285 


E0A6 


08 








INX 




1286 


E0A7 


DF 


18 






STX 


ADDR 


1287 


E0A9 


86 


03 






LDAA 


=3 


1288 


E0AB 


94 


19 






ANDA 


ADDR+1 


1289 


EBAD 


26 


EF 






BNE 


FOR 


1290 
















1291 


E0AF 


BD 


C0 


62 




JSR 


W.l. BLANK 


1292 


E0B2 


5A 








DEC 


B 


1293 


E0B3 


26 


E9 






BNE 


FOR 


1294 
















1295 


E0B5 


33 








PUL 


B 


1296 


E0B6 


32 








PUL 


A 


1297 


E0B7 


39 








RTS 




1298 


E0B8 










END 


DUMP. LINE 


1299 
















1300 
















1301 


E8B8 


FE 


00 


0F 


DUMP 


LDX 


X.WORD 


1302 


E0BB 


DF 


18 






STX 


ADDR 


1303 


E0BD 


CE 


00 


18 




LDX 


=ADDR 


1304 


E0C8 


20 


0F 






BRA 


ENTRY 


1305 
















1306 


E8C2 


BD 


C0 


78 


REPEAT1 


JSR 


W.CRLF 


1307 


E0C5 


CE 


C0 


12 




LDX 


=MESS2 


1308 


E0C8 


BD 


C0 


6A 




JSR 


W, STRING 


1309 


E8CB 


CE 


00 


18 




LDX 


=ADDR 


1310 


E8CE 


BD 


C0 


D8 




JSR 


IN. WORD 


1311 


E0D1 


86 


F0 




ENTRY 


LDAA 


=0F0 


1312 


E0D3 


A4 


01 






ANDA 


1,X 


1313 


E0D5 


A7 


01 






STAA 


i,x 


1314 
















1315 


E0D7 


86 


10 




REPEAT2 


LDAA 


=10 


1316 


E0D9 


8D 


B2 




FOR 


BSR 


DUMP. LINE 


1317 


E0DB 


4A 








DEC 


A 


1318 


E0DC 


26 


FB 






BNE 


FOR 


1319 
















1320 


E0DE 


BD 


C0 


24 


REPEAT3 


JSR 


R.CH 


1321 


E0E1 


84 


DF 






ANDA 


=0DF 


1322 


E0E3 


81 


4C 






CMPA 


= 'L' 


1323 


EBE5 


26 


04 






BNE 


NO.L 


1324 


E0E7 


8D 


A4 






BSR 


DUMP. LINE 


1325 


E0E9 


20 


F3 




UNTIL3 


BRA 


REPEAT3 


1326 
















1327 


E0EB 


31 


50 




NO.L 


CMPA 


= 'P' 


1328 


E0ED 


27 


E8 




UNTIL2 


BEQ 


REPEAT2 


1329 
















1330 


E0EF 


81 


41 






CMPA 


-'A' 


1331 


E0F1 


27 


CF 




UNTIL1 


BEQ 


REPEAT1 


1332 
















1333 


E0F3 


39 








RTS 




1334 


E0F4 










END 


DUMP 



M[ADDR] 
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PANEL 




MOTOROLA 






1336 










* 


PROCEDURE INSPECT(X,WORD: ADDRESS); 


1337 










* 


VAR ADDR: ADDRESS; (» X-REG *) 


1338 










* 




A: CHAR; 


1339 










* 


BEGIN 


1340 










« 


X 


:- X.WORD; 


1341 










S 


LOOP 


1342 










« 




OUT.BYTE(M[X]); 


1343 










* 




R.CH(A); 


1344 










* 




WHILE A # ' : ' DO 


1345 










« 




IN.BYTE(M[ADDR]); 


1346 










* 




R.CH(A); 


1347 










* 




END; 


1348 










s 




IF NOT A IN [',',' V] THEN EXIT END; 


1349 










s 




IF A = 


1350 










* 




THEN INC(ADDR) 


1351 










« 




ELSE DEC(ADDR) 


1352 










* 




END; 


1353 










* 




W.CRLF; 


1354 










* 




PRINT. X; 


1355 










* 




W.l. BLANK; 


1356 










* 


END; 


1357 










* 


END 


INSPECT; 


1358 
















1359 


E0F4 










BEGIN INSPECT 


1360 












DEF 


INSPECT 


1361 
















1362 










INSPECT 


EQU 


* 


1363 


E8F4 


FE 


00 


0F 




LDX 


X.WORD 


1364 
















1365 


E0F7 


A6 


00 




LOOP 


lda; 


8,X 


1366 


E0F9 


BD 


C0 


C9 




JSR 


OUT. BYTE 


1367 
















1368 


E0FC 


BD 


C0 


24 


WHILE 


JSR 


R.CH 


1369 


E0FF 


81 


3A 






CMP/! 


= ' : ' 


1370 


E101 


26 


07 






BNE 


END . WHILE 


1371 


E103 


BD 


C0 


BC 




JSR 


IN. BYTE 


1372 


E106 


A7 


00 






STA^ 


0,X 


1373 


E108 


20 


F2 






BRA 


WHILE 


1374 
















1375 


E10A 


81 


2C 




END. WHILE 


CMP<! 


-COMMA 


1376 


E10C 


27 


05 




IF 


BEQ 


THEN 


1377 


E10E 


81 


5C 






CMP* 


=BACK , SLASH 


1378 


E110 


27 


04 






BEQ 


ELSE 


1379 


E112 


39 








RTS 


EXIT 


1380 


E113 


68 






THEN 


INX 




1381 


E114 


20 


01 






BRA 


END. IF 


1382 


E116 


09 






ELSE 


DEX 




1383 


E117 


BD 


C0 


78 


END. IF 


JSR 


W.CRLF 


1384 


E11A 


BD 


C2 


87 




JSR 


PRINT. X 


1385 


E11D 


BD 


C0 


62 




JSR 


W.l. BLANK 


1386 


E120 


20 


D5 






BRA 


LOOP 


1387 
















1388 


E122 










END 


INSPECT 



88.23.28, SEITE NR 31 



MOTOROLA ASSEMBLER 18/85/82 08.23.28. SEITE NR 32 
PANEL MOTOROLA 

1391 

1392 * 

1393 * PROCEDURE TYPECTRL; 

1394 * VAR TYPING: BYTE; 

1395 * - NO TYPING AT ALL 

1396 • 1 - TYPE END MESSAGE AND ERRORS 

139? » 2 - TYPE ERRORS, DON'T TYPE END MESSAGE 

1398 * 3 - LIKE 1 + WAIT IN CASE OF ERROR 

1399 « 4 - SEND A PULSE IN CASE OF ERROR 

1408 « BEGIN TYPING := X.WORD END; 
1401 

1402 E122 BEGIN TYPE. CTRL 

1483 DEF TYPE. CTRL 

1404 

1405 E122 B6 00 10 TYPECTRL LDAA X.WORD+1 

1486 E125 97 16 STAA TYPING 

1407 E127 39 RTS 

1488 

1409 E128 END TYPE. CTRL 
1410 

1412 
1413 
1414 
1415 
1416 

1417 * MODULE INTERRUPTS; 

1418 * EXPORT SOFT. INT, IRQ, NMI, PRINT. BUS, GO, TYPING 

1419 » CONST SW. INT. INST = 3F; 

1420 « VAR PSEUDO. IRQ, STOP. ADDR: ADDRESS; 

1421 * SAVE. AREA: ARRAY 0. .2 OF BYTE; 
1422 

1423 E128 BEGIN INTERRUPT 

1424 DEF IRQ, NMI, GO 

1425 USE FROM. NMI 
1426 

1427 SW. INT. INST EQU 3F 

1428 

1429 CODE SET » 

1438 E128 ORG DATA 

1431 

1432 801 A 80 00 STOP. ADDR WORD 

1433 001C SAVE. AREA BSS 3 

1434 001F 00 00 PC. ON. STACK WORD 

1435 0021 00 00 PSEUDO. IRQ WORD 8 
1436 

1437 DATA SET « 

1438 8823 ORG CODE 



PANEL 



MOTOROLA ASSEMBLER 18/05/82 08.23.28. SEITE NR 33 



MOTOROLA INTERRUPT 



1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 



GO 
E128 

CC 
JSR 



E128 24 12 IF 

E12A 8E 00 7F THEN 

E12D FE 00 0F 

E130 BD C2 59 

E133 34 

E134 34 

E135 34 

E136 34 

E137 86 10 

E139 36 

E13A 20 02 

E13C 31 ELSE 

E13D 31 

E13E BD C2 FE END. IF 



E141 BD C0 78 



E144 
E147 
E149 
E14C 
E14E 
E150 



7D 68 11 
27 0D 
FE 00 0F 
DF 1A 
A6 00 
97 1C 



IF1 



THEN1 



PROCEDURE GO (X.WORD: ADDRESS); 
CONST CC = 10H; (« INTERRUPT DISABLE BIT SET 
VAR CARRY: BOOLEAN; (* COND.CODE ») 
CARR: BOOLEAN; (« 0=FALSE «) 
SP: ADDRESS; (« STACK POINTER ») 
BEGIN 
IF CARRY 
THEN 
SP := STACK; 
PUSH(X.WORD); 
DEC(SP,4); 
PUSH(CC); 
ELSE 

INC(SP,2); (« 
END; (» 



MfSTOP.ADDR]; 

SW. INT. INST'; 



GETWORD(STOP . ADDR , CARR) ; 
W.CRLF; (» ASSUME NOT AUTO LF 
IF CARR 
THEN 

SAV.AREA[0] :■■ 
M[STOP.ADDR] := 
END; 

TRANSFER; 
END GO; 



EQU « 
BEGIN GO 
USE CARR 
EQU 10 
EQU 0BD 



SKIP THE MONITORS RETURN ADDRESS FROM «) 
CALLING GETKEY (IN COMMANDS) *) 







BCC 

LDS 

LDX 

JSR 

DES 

DES 

DES 

DES 

LDAA 

PSH 

BRA 

INS 

INS 

JSR 



ELSE 
-STACK 
X.WORD 
PUSH.X 



=CC 
A 
END. IF 



GETWORD 



X-LOW 
X-HIGH 
A-REG 
B-REG 



JSR W.CRLF 



TST 

BEQ 
LDX 
STX 

LDAA 
STAA 



CARR 
END.IF1 
X.WORD 
STOP. ADDR 
0,X 
SAVE. AREA 



MOTOROLA ASSEMBLER 18/05/82 08.23.28, SEITE NR 34 
PANEL MOTOROLA INTERRUPT GO 

1496 E152 86 3F LDAA -=SW . INT . INST 

1497 E154 A7 00 STAA 0,X 

1498 E156 3B END.IF1 RTI 
1499 

1500 E157 END GO 





PANEL 




MOTOROLA INTERRUPT 


1582 








• 


1583 








* 


1504 










1505 








IRQ 


1586 


E157 


DE 


21 




1587 


E159 


6E 


ee 




1508 










1509 










1510 








• 


1511 








* 


1512 








* 


1513 








* 


1514 








« 


1515 










1516 








NMI 


1517 


E15B 


30 






1518 


E15C 


08 






1519 


E15D 


08 






1520 


E15E 


68 






1521 


E15F 


08 






1522 


E160 


08 






1523 


E161 


DF 


IF 




1524 


E163 


20 


40 




1525 










1526 










1527 










1528 










1529 








» 


1530 








« 


1531 








* 


1532 








« 


1533 








* 


1534 








* 


1535 








* 


1536 








* 


1537 








* 


1538 








* 


1539 








* 


1540 








a 


1541 








« 


1542 








« 


1543 








* 


1544 








* 


1545 








* 


1546 








* 


1547 








* 


1548 








s 


1549 








» 


1550 











MOTOROLA ASSEMBLER 18/85/82 88.23,28. SEITE NR 35 



PROCEDURE IRQ: 

BEGIN GOTO M[PSEUDO.IRQ] END IRQ; 



EQU * 

LDX PSEUDO.IRQ 

JMP 0,X 



PROCEDURE NMI; 
BEGIN 

PRINTREGS; 

GOTO MON. RESUME; 
END NMI; 

EQU • 

TSX 

INX 

INX 

INX 

INX 

INX 

STX PC. ON. STACK 

BRA FROM. NMI 



PROCEDURE SOFTWARE. INTERRUPT; 

VAR I,CH: GESCHMAEUS; 
BEGIN 

IF HALT (» M[SP+6]-l - STOP.ADDR ») 
THEN 

M[STOP.ADDR] := SAV.AREA[0]; 
DEC(M[SP+6],1); 
PRINT. REGS; 

GOTO MON, RESUME; (« MONITOR ENTRY WITHOUT STACK INIT ») 
ELSE 

IF TYPING # 
THEN 
WRITE ('ERROR IN ', MAIN. ID, 1 '.SUB.ID); 
PRINT. REGS; 

IF TYPING = 3 THEN READ(CH) END; 
IF TYPING = 4 THEN SEND(SIGNAL) END; 
W.CRLF; 
END; 

TRANSFER; 
END; 
END SOFTWARE. INTERRUPT; 



MOTOROLA ASSEMBLER 18/05/82 08.23.28. SEITE NR 36 



PANEL MOTOROLA INTERRUPT 



1552 E165 BEGIN SOFT. INT 

1553 DEF FROM. NMI, SOFT. INT 

1554 USE MON. RESUME 
1555 

1556 E165 36 PRINT. REGS PSH A 

1557 E166 17 TBA 

1558 E167 BD C0 C9 JSR OUT. BYTE WRITE(B) 

1559 E16A BD C0 62 JSR W.l. BLANK 

1560 E160 32 PUL A 

1561 E16E BD C0 C9 JSR OUT. BYTE WRITE(A) 

1562 E171 BD C0 62 JSR W.l. BLANK 

1563 E174 DE IF LDX PC. ON. STACK 

1564 E176 09 DEX 

1565 E177 09 DEX X POINTS TO THE X REG ON THE STACK 

1566 E178 BD C0 E3 JSR OUTWORD WRITE(X) 

1567 E17B BD C0 62 JSR W.l. BLANK 

1568 E17E EE 02 LDX 2,X (PC) 

1569 E180 BD C2 87 JSR PRINT. X 

1570 E183 39 RTS 
1571 

1572 SOFT. INT EQU * 

1573 E184 30 TSX X -> CC 

1574 E185 08 INX 

1575 E186 08 INX 

1576 E187 08 INX X -> X 

1577 E188 08 INX 

1578 E189 08 INX X -> RA 

1579 E18A DF IF STX PC. ON. STACK 

1580 E18C EE 00 LDX 0,X 

1581 E18E 09 DEX 

1582 E18F 9C 1A IF CPX STOP.ADDR 

1583 E191 26 29 BNE ELSE 

1584 E193 36 THEN PSH A HALT 

1585 E194 96 1C LDAA SAVE. AREA 

1586 E196 A7 00 STAA 0,X 

1587 E198 DE IF LDX PC. ON. STACK 

1588 E19A 86 FF LDAA =0FF -1 

1589 E19C AB 01 ADDA 1,X 

1590 E19E A7 01 STAA 1,X 

1591 E1A0 25 02 BCS PR 

1592 E1A2 6A 00 DEC 0,X 

1593 E1A4 32 PR PUL A 
1594 

1595 FROM. NMI EQU * 

1596 E1A5 8D BE BSR PRINT. REGS 

1597 E1A7 7E E2 B9 JMP MON. RESUME LET THE REGISTERS ON THE STACK, FOR A FUTURE 

1598 « RESUME OF THE PROGRAM AT THE SAME ADDRESS 



PANEL 



MOTOROLA ASSEMBLER 18/05/82 08.23.28. SEITE MR 37 



MOTOROLA INTERRUPT SOFTINT 



1600 










* 


SIMUL 


ATION OF T 


HE SOFTWARE INTERR 


1601 










* 


REPLACING A, 3 BYE THE VALUE OF TH 


1602 


















1603 


E1AA 


BD 


C2 


59 


PRINT. BUS 


JSR 


PUSHX 




1604 


E1AD 


30 








TSX 






1605 


E1AE 


08 








INX 






1606 


E1AF 


08 








INX 






1607 


E1B0 


DF 


IF 






STX 


PC. ON. STACK 


1608 


E1B2 


36 








PSH 


A 




1609 


E1B3 


37 








PSH 


B 




1610 


E1B4 


07 








TPA 






1611 


E1B5 


36 








PSH 


A 




1612 


E1B6 


F6 


3C 


BE 




LDAB 


CPU1 


LOAD A,B WITH CP 


1613 


E1B9 


B6 


3C 


0F 




LDAA 


CPU1+1 




1614 


















1615 


















1616 










ELSE 


EQU 


* 




1617 


E1BC 


7D 


00 


16 


IF1 


TST 


TYPING 




1618 


E1BF 


27 


42 






BEQ 


END.IFl 




1619 


E1C1 


CE 


E2 


04 




LDX 


=ERR.IN 


VRITEC ERROR IN') 


1620 


E1C4 


BD 


C0 


6A 




JSR 


V. STRING 




1621 


E1C7 


FE 


00 


8B 




LDX 


MAIN. ID 


WRITE(MAIN.ID) 


1622 


E1CA 


BD 


C0 


6A 




JSR 


V. STRING 




1623 


E1CD 


BD 


C0 62 




JSR 


V.l. BLANK 




1624 


E1D0 


FE 


00 


0D 




LDX 


SUB. ID 


WRITE(SUB.ID) 


1625 


E1D3 


BD 


C0 


6A 




JSR 


W. STRING 




1626 


E1D6 


BD 


C0 


62 




JSR 


V.l. BLANK 




1627 


E1D9 


8D 


8A 






BSR 


PRINT. REGS 


1628 


E1DB 


96 


16 






LDAA 


TYPING 




1629 


E1DD 


81 


03 






CMPA 


=3 


WAIT ON ERROR 


1630 


E1DF 


26 


03 






BNE 


PRNT2 




1631 


E1E1 


BD 


C0 


24 




JSR 


R.CH 




1632 


E1E4 


81 


04 




PRNT2 


CMPA 


=4 


SEND A SIGNAL 


1633 


E1E6 


26 


0F 






BNE 


PRNT3 




1634 


E1E8 


96 


03 






LDAA 


STAT0 




1635 


E1EA 


84 


FD 






ANDA 


=0FD 


RESET BIT 1 


1636 


E1EC 


B7 3C 


13 




STAA 


C0N8 




1637 


E1EF 


BD 


CI 


AC 




JSR 


MCLK 




1638 


E1F2 


8A 


02 






ORAA 


=2 


SET AGAIN 


1639 


E1F4 


B7 


3C 


13 




STAA 


CON0 




1640 


E1F7 


BD 


C0 


78 


PRNT3 


JSR 


W.CRLF 




1641 


E1FA 


BD 


C0 


46 




JSR 


BREAK 


HANDLE BREAK 


1642 


E1FD 


4D 








TST 


A 




1643 


E1FE 


27 03 






BEQ 


PRNT4 


NO BREAK 


1644 


E200 


BD 


C0 


24 




JSR 


R.CH 


DUMMY READ 


1645 










PRNT4 


EQU 


* 




1646 


E203 


3B 






END.IFl 


RTI 






1647 


















1648 


E204 
E207 
E20A 
E20D 


45 
4F 
49 

ea 


52 

52 
4E 


52 
20 
20 


ERR. IN 


BYTE 


•ERROR IN 


',0 


1649 


















1650 


E20E 










END 


SOFT. INT 




1651 


















1652 


E20E 










END 


INTERRUPT 
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PANEL 




MOTOROLA 




1654 










* 


PROCEDURE MONITOR; 


1655 










* 


CONST STACK = 7F; GARBAGE; 


1656 










* 


VAR SP : ADDRESS; 


1657 










* 


MEMORY; 


1658 










* 


B, (* TRUE <=> U-RAM «) 


1659 










« 


URAM. LOAD, MRAM.LOAD: BOOLEAN; 


1660 










* 


BEGIN 


1661 










* 


SP := STACK; 


1662 










C 


INIT; 


1663 










* 


RESET; 


1664 










* 


IF MEMORY = GARBAGE 


1665 










* 


THEN 


1666 










* 


MEMORY := NO GARBAGE; 


1667 










C 


URAM. LOAD := FALSE; 


1668 










* 


MRAM.LOAD := FALSE; 


1669 










* 


END; 


1670 










* 


CHECK. URAM(B); 


1671 










* 


IF HP. ONLINE 


1672 










* 


THEN 


1673 










s 


IF NOT MRAM.LOAD THEN WRITE('LOAD MOTOROLA RAM'); END; 


1674 










* 


IF B AND NOT URAM. LOAD THEN WRITE('LOAD U-RAM'); END; 


1675 










* 


COMMANDS( MONITOR . TITLE , MAIN . MENU) ; 


1676 










* 


ELSE 


1677 










* 


IF B AND NOT URAM. LOAD THEN LOAD. URAM; END; 


1678 










* 


BOOT. AND. GO; 


1679 










« 


LOOP END; 


1680 










* 


END; 


1681 










* 


END MONITOR; 


1682 














1683 


E20E 










BEGIN MONITOR 


1684 














1685 










CODE 


SET « 


1686 


E20E 










ORG DATA 


1687 














1688 










NO. GARBAGE 


EQU 0A596 


1689 


0023 


08 


00 




MEMORY 


WORD 


1690 














1691 










DATA 


SET » 


1692 


0025 










ORG CODE 


1693 














1694 










CHECK. URAM 


EQU * 


1695 


E20E 










BEGIN CHECK. URAM 


1696 














1697 


E20E 


CE 


80 


00 




LDX =0 


1698 


E211 


5F 








CLR B 


1699 


E212 


BD 


CI 


90 




JSR RUM 


1700 


E215 


36 








PSH A 


1701 














1702 


E216 


4C 








INC A 


1703 


E217 


BD 


CI 


7B 




JSR WUM 


1704 


E21A 


BD 


CI 


90 




JSR RUM 


1705 














1706 


E21D 


33 








PUL B 


1707 


E21E 


11 








CBA 


1708 


E21F 


27 


08 






BEQ NO. RAM 



MOTOROLA ASSEMBLER 18/85/82 08.23.28, SEITE NR 39 
PANEL MOTOROLA MONITOR CHECKURAM 

1718 E221 17 

1711 E222 5F 

1712 E223 BD CI 7B 
1713 

1714 E226 C6 FF 

1715 E228 39 
1716 

1717 E229 5F NO. RAM 

1718 E22A 39 

1719 E22B 



TB£ 




CLR 


B 


JSR 


yuM 


LDAB 


»0FF 


RTS 




CLR 


B 


RTS 




END 


CHECK. URAM 



MOTOROLA ASSEMBLER 18/05/82 88.23,28. SEITE NR 





PANEL 




MOTOROLA MONITOR 






1721 










HP. ONLINE 


EQU 


• 


1722 


E22B 










BEGIN CHECK. HP 


1723 
















1724 


E22B 


37 








PSH 


B 


1725 


E22C 


CE 


E2 


57 




LDX 


=STATUS.REQ 


1726 


E22F 


BD 


C0 


6A 




JSR 


W. STRING 


1727 
















1728 


E232 


CE 


00 


00 




LDX 


=0 


1729 


E235 


B6 


40 


00 


REPEAT 


LDAA 


HP. STATUS 


1730 


E238 


47 








ASR 


A 


1731 


E239 


25 


06 






BCS 


ANSWER 


1732 
















1733 


E23B 


09 








DEX 




1734 


E23C 


26 


F7 






BNE 


REPEAT 


1735 
















1736 


E23E 


33 






OFF. LINE 


PUL 


B 


1737 


E23F 


4F 








CLR 


A 


1738 


E240 


39 








RTS 




1739 
















1740 


E241 


B6 


40 


01 


ANSWER 


LDAA 


HP. DATA 


1741 


E244 


81 


IB 






CMPA 


=ESC 


1742 


E246 


26 


F6 






BNE 


OFF. LINE 


1743 
















1744 


E248 


CE 


00 


86 




LDX 


=6 


1745 


E24B 


BD 


C0 24 


FOR 


JSR 


R.CH 


1746 


E24E 


09 








DEX 




1747 


E24F 


26 


FA 






BNE 


FOR 


1748 
















1749 


E251 


BD 


E0 85 




JSR 


SHLURF 


1750 


E254 


08 








INX 




1751 


E255 


33 








PUL 


B 


1752 


E256 


39 








RTS 




1753 
















1754 


E257 
E25A 


IB 
60 


5E 


11 


STATUS. REQ 


BYTE 


ESC,'t',DCl 


1755 
















1755 


E25B 










END 


CHECK. HP 


1757 
















1758 
















1759 










SAVE. L.REG 


EQU 


* 


1760 


E25B 










BEGIN 


SAVE.LREG 


1761 
















1762 










L , 


EQU 


0E 


1763 










ERR.LOC 


EQU 


6 


1764 
















1765 


E25B 


BD 


CI 


58 




JSR 


EDMIR 


1766 


E25E 


C6 


0E 






LDAB 


=L 


1767 


E260 


BD 


C2 


DD 




JSR 


READ. REG 


1768 


E263 


DF 


01 






STX 


X.SAVE 


1769 


E265 


D6 


01 






LDAB 


X.SAVE 


1770 


E267 


96 


02 






LDAA 


X.SAVE+1 


1771 


E269 


CE 


00 


06 




LDX 


=ERR.LOC 


1772 


E26C 


BD 


C2 


28 




JSR 


WMM 


1773 


E26F 


BD 


CI 


5F 




JSR 


EPMIR 


1774 


E272 


39 








RTS 




1775 


E273 










END 


SAVE.LREG 



Z <=> HP OFFLINE 



NOT Z <=> HP ONLINE 



MOTOROLA ASSEMBLER 18/05/82 08.23.28, SEITE NR 
PANEL MOTOROLA MONITOR 



1777 


E273 










BEGIfv 


RESET 


1778 












DEF 


MONITOR, ESC 


1779 
















1788 










MONITOR 


EQU 


* 


1781 


E273 


8E 


00 


7F 




LDS 


-STACK 


1782 


E276 


86 


7E 






LDAA 


-7E 


1783 


E278 


B7 


28 


80 




STAA 


RET 


1784 


E27B 


BD 


C0 


19 




JSR 


INIT 


1785 


E27E 


BD 


C2 


90 




JSR 


RESET 


1786 


E281 


BD 


E2 


5B 




JSR 


SAVE. L.REG 


1787 
















1788 


E284 


CE A5 


96 




LDX 


-NO. GARBAGE 


1789 


E287 


9C 


23 






CPX 


MEMORY 


1790 


E289 


27 


08 






BEQ 


NOT. FIRST 


1791 
















1792 


E28B 


OF 


23 






STX 


MEMORY 


1793 


E28D 


7F 


BB 


14 




CLR 


URAM.LOAD 


1794 


E290 


7F 


00 


15 




CLR 


MRAM.LOAD 


1795 
















1796 


E293 


BD 


E2 


0E 


NOT. FIRST 


JSR 


CHECK. URAM 


1797 


E296 


8D 


93 






BSR 


HP. ONLINE 


1798 


E298 


27 


48 






BEQ 


NO. HP 


1799 
















1800 


E29A 


7D 08 


15 




TST 


MRAM.LOAD 


1801 


E29D 


26 06 






BNE 


ELSE 


1802 


E29F 


CE 


E2 


F2 




LDX 


-WARN1 


1803 


E2A2 


BD 


C0 


6A 




JSR 


V. STRING 


1804 
















1805 


E2A5 


5D 






ELSE 


TST 


B 


1806 


E2A6 


27 


63 






BEQ 


ESCAPED 


1807 


E2A8 


7D 


00 


14 




TST 


URAM.LOAD 


1808 


E2AB 


26 


06 






BNE 


ESCAPED 


1809 


E2AD 


CE 


E3 


05 




LDX 


-WARN2 


1810 


E2B0 


BD 


C0 


6A 




JSR 


V. STRING 


1811 
















1812 


E2B3 


8E 


00 


7F 


ESCAPED 


LDS 


=STACK 


1813 


E2B6 


BD 


C2 


90 




JSR 


RESET 


1814 
















1815 


E2B9 


CE 


E3 


0F 


MON. RESUME 


LDX 


-MONITOR. TI 


1816 


E2BC 


FF 


08 8B 




STX 


MAIN. ID 


1817 


E2BF 


CE 


E3 


17 




LDX 


-MAIN. MENU 


1818 


E2C2 


7E 


C3 


91 




JMP 


COMMANDS 



RETURN FOR PULLX/PUSHX 



ENTRY WITHOUT ACIA INITIALIZATION 



ENTRY WITHOUT STACK INITIALIZATION 
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PANEL 



MOTOROLA MONITOR RESET 



1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 



1848 



1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 



1859 
1860 



E2F2 
E2F5 
E2F8 
E2FB 
E2FE 
E301 
E304 
E305 
E308 
E30B 
E30E 

E30F 

E30F 



BOOT. GO 



E2C5 BD C2 90 

E2C8 CE 00 00 

E2CB FF 00 0F 

E2CE BD E2 D5 

E2D1 BD CI 66 

E2D4 39 



E2D5 FE 00 0F 

E2D8 BD CI 58 

E2DB BD CI C2 

E2DE BD CI 5F 

E2E1 39 



E2E2 5D 

E2E3 27 08 

E2E5 7D 00 14 

E2E8 26 03 

E2EA BD E3 B3 

E2ED 8D D6 

E2EF 3E 

E2F0 20 FD 



SET. UPC 



NO. HP 



4C 4F 41 
44 20 4D 
4F 54 4F 
52 4F 4C 
41 20 52 
41 4D 20 
00 

4C 4F 41 
44 20 75 
52 41 4D 
00 



BOOT 
WAIT 



WARN1 



EQU 


* 




JSR 


RESET 




LDX 


=0 




STX 


X.WORD 




JSR 


SET. U. PC 




JSR 


START 




RTS 






LDX 


X.WORD 




JSR 


EDMIR 




JSR 


STUPC 




JSR 


EPKIR 




RTS 






TST 


B 




BEQ 


BOOT 




TST 


URAM.LOAD 




BNE 


BOOT 




JSR 


LOAD.URAM 




BSR 


BOOT. GO 




WAI 






BRA 


WAIT 




BYTE 


'LOAD MOTOROLA RAM 


,8 



WARN2 



BYTE 'LOAD ', LOWER. U, 'RAM' ,0 

END RESET 
END MONITOR 

******************************************************* 



E30F 4D 4F 4E MONITOR. TI BYTE ' MONITOR', 

E312 49 54 4F 

E315 52 00 

E317 0C MAIN. MENU BYTE 0C 

E318 55 20 75 BYTE 'U ' .LOWER. U, 'RAM LADEN' ,0 

E31B 52 41 40 

E31E 20 4C 41 

E321 44 45 4E 

E324 00 



PANEL 



MOTOROLA 
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1865 
1866 



1861 E325 

1862 E327 
E32A 
E32D 
E330 

1863 E333 

1864 E335 
E338 
E33B 
E33E 
E341 
E344 
E345 
E347 
E34A 
E34D 
E350 

1867 E352 

1868 E354 
E357 
E35A 
E35D 

1869 E35E 

1870 E360 
E363 

1871 E365 

1872 E367 
E36A 
E36D 
E370 

1873 E373 

1874 E375 
E378 
E37B 
E37E 
E381 

1875 E382 

1876 E384 
E387 
E38A 

1877 E38B 

1878 E38D 
E390 
E393 
E396 

1879 E397 
1830 E399 

E39C 
E39F 
E3A0 
E3A2 
E3A5 
E3A8 
E3AB 
E3AE 

1883 E3B1 

1884 



20 42 



1881 
1882 



E3 B3 
4F 25 
4F 4F 54 
20 08 20 
47 4F 00 
E2 C5 
4C 20 4C 
4F 41 44 
20 4D 4F 
54 4F 52 
4F 4C 41 
00 

E0 6F 
50 20 4D 
45 4D 20 

44 55 4D 
50 00 

E8 B8 
49 20 49 
4E 53 50 

45 43 54 
00 

E0 F4 
47 20 47 
4F 00 
El 28 
59 20 54 
59 50 45 
20 43 54 

52 4C 00 
El 22 

53 20 4D 
41 49 4E 
20 53 54 
4F 52 45 
00 

20 03 
58 20 45 
58 45 43 
00 

20 06 
56 20 44 
45 56 49 
43 45 53 
00 
20 89 

54 20 54 
45 53 54 
00 

20 BC 
4D 20 4D 
49 43 52 
4F 20 40 
45 4D 4F 
52 59 00 
20 0F 



WORD LOAD. U. RAM 
BYTE '0 BOOT & GO',0 



WORD BOOT. GO 

BYTE 'L LOAD MOTOROLA', 



VORD LOAD 

BYTE 'P MEM DUMP', 8 



WORD DUMP 

BYTE 'I INSPECT ',8 



WORD INSPECT 

BYTE 'G GO',0 

WORD GO 

BYTE 'Y TYPE CTRL', 8 



WORD TYPE. CTRL 

BYTE 'S MAIN STORE', 



WORD 2803 

BYTE 'X EXEC',0 



WORD 2805 

BYTE 'V DEVICES ',0 



WORD 2009 

BYTE 'T TEST ',8 



WORD 208C 

BYTE 'M MICRO MEMORY ',0 



WORD 280F 



MOTOROLA ASSEMBLER 18/05/82 08.23.28, SEITE NR 44 
PANEL MOTOROLA 

1885 E3B3 END MOTOROLA 



MOTOROLA ASSEMBLER 18/05/82 68,23,28. SEITE NR 45 
PANEL 

1387 ********************************************************* 

1888 LOAD.URAM EQU * 



1889 


E3B3 










BEGIN 


MICROM 




1893 










* 








1891 










« PROCEDURE LOADRAM; 




1892 










* 


(* COPY ROM 


INTO RAM ») 




1893 










» 


BEGIN 






1894 










* 


FOR HELP1 


:= 800H TO 0FFFH DO 


1895 










* 


FOR B := 


4 TO STEP 


-1 DO 


1896 










* 


A := RUM(X,B); WUM(X,B,A); INC(XSUM.A) 


1897 










* 


END; 






1898 










* 


END; 






1899 










* 


HIGH, U. ADR 


:» 8B0H; 




1900 










* 


END LOADRAM; 






1901 


















1902 










CODE 


SET 


* 




1903 


E3B3 










ORG 


DATA 




19B4 


















1965 


0025 


00 






XSUM 


BYTE 





XSUM OF MICRO MEMOR 


1906 


0026 


00 


00 




HIGH 


U.ADR WORD 





HIGHEST LOADED ADR 


1907 


0028 


00 


00 




HELP1 


WORD 







1908 


002A 


00 


00 




HELPS 


» WORD 







1909 


















1910 










DATA 


SET 


* 




1911 


002C 










ORG 


CODE 




1912 


















1913 


















1914 


E3B3 


CE 


00 


00 




LDX 


=0 


START OF RAM 


1915 


E3B6 


DF 


2A 






STX 


HELP2 




1916 


E3B8 


CE 


08 


00 




LDX 


=800 




1917 


E3BB 


DF 


28 






STX 


HELP1 


START OF ROM 


1918 


E3BD 


7F 


00 


25 




CLR 


XSUM 




1919 


E3C0 


C6 


04 




LDR.LOP1 LDAB 


=4 




1920 


E3C2 


DE 


28 




LDR.L0P2 LDX 


HELP1 




1921 


E3C4 


BD 


CI 


90 




JSR 


RUM 




1922 


E3C7 


DE 


2A 






LDX 


HELP2 




1923 


E3C9 


BD 


CI 


7B 




JSR 


WUM 




1924 


E3CC 


93 


25 






ADDA 


XSUM 




1925 


E3CE 


97 


25 






STAA 


XSUM 




1926 


E3D0 


5A 








DEC 


B 




1927 


E3D1 


2A 


EF 






BPL 


LDR.L0P2 




1928 


E3D3 


68 








INX 




INC(HELP2) 


1929 


E3D4 


DF 


2A 






STX 


HELP2 




1930 


E3D6 


DE 


28 






LDX 


HELP! 




1931 


E3D8 


08 








INX 






1932 


E3D9 


DF 


28 






STX 


HELP1 




1933 


E3DB 


8C 


10 


ee 




CPX 


=1000 


HIGHEST OF RAM + 1 


1934 


E3DE 


26 


E0 






BNE 


LDR.LOP1 




1935 


















1936 


E3E0 


CE 


83 


08 




LDX 


=880 




1937 


E3E3 


DF 


26 






STX 


HIGH. U.ADR 


1938 


E3E5 


7C 


00 


14 




INC 


U. RAM. LOAD 


1939 


E3E8 


39 








RTS 






1940 










* 








1941 


E3E9 










END 


MICROM 
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1943 






INTERRUPT VECTOR'S 


1944 










1945 


E3E9 




ORG 


0E3F8 


1946 










1947 


E3F8 


El 57 


WORD 


IRQ 


1948 


E3FA 


El 84 


WORD 


SOFT. INT 


1949 


E3FC 


El 5B 


WORD 


NMI 


1958 


E3FE 


E2 73 


WORD 


MONITOR 


1951 










1952 






USER. DATA EQU 


DATA 


1953 










1954 


E480 




END 


PANEL 



